﻿'Imports MySql.Data.MySqlClient
Public Class frmDiagnostico
    'Private diagnostico As New cDiagnostico
    Private Llenar As ArrayList
    Private diagnostico As New cDiagnostico
    'Private resultado As MySqlDataReader
    Private resultado As DataSet

    Private Sub frmDiagnostico_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Llenar = diagnostico.Cargar(txtCodigoDiagnostico.Text)
        If Llenar.Count <> 0 Then
            txtNombreDiagnostico.Text = Llenar(1)
            txtEstado.Text = Llenar(2)
        Else
            MsgBox("No se ENcontraron Registros")
        End If

        'Dim contador As Integer = 0
        'resultado = diagnostico.Consultar(txtCodigoDiagnostico.Text)
        'LstLista.DataSource = resultado.Tables(0).DefaultView
        'txtNombreDiagnostico.Text = resultado(0)
        'txtEstado.Text = resultado(1)

        'While contador < resultado.Count

        'DgDiagnostico.Rows.Add(New String() {resultado(0)(2), resultado(1)(2), resultado(2)(2)})

        'contador = contador + 1
        'End While
        'DgDiagnostico.DataSource = resultado.Tables(0).DefaultView
        'MsgBox(resultado.GetString(0) & resultado.GetString(1))
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        diagnostico.Codigo_Diagnostico = txtCodigoDiagnostico.Text
        diagnostico.Nombre_Diagnostico = txtNombreDiagnostico.Text
        diagnostico.Estado_Diagnostico = txtEstado.Text
        diagnostico.Guardar()
    End Sub
End Class